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TELL WHO EVER IT IS THAT THINKS 
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DOES NUT”"'.........-... 
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SAVE THE 18 BIT CORE ADDRESS _ 
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LINK.THE.BLOCK. INTO.THE" . 
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DKCONTAB»1 
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-15.. 


XI 

-*+2,-X3. 
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BLOCK IF .IT. Is .NOT THE ONE WE . ARE 

CURRENTLY WORKING WITH 

ITS.THE.SANE.ONE. 


GET THE POINTER TO THE NEXT ELEME 
PUT IT INTO XI 

AND.LOOP TILL DONE. 

LOAD THE FILE BLOCK NUMBER 

ENTER.THE.RETURN------ 

GO LINK THE BLOCK INTO THE 
PROFER QUEUE 

CURRENT BLOCK ADDRESS TO (A) 

LOAD THE LOGICIAL DEVICE NUMBER 

IS THIS BLOCK.ON.THE.FRONT OF 

IT FS QUEUE 

JUMP.IF.NOT.-.*.-.- 

DEVICE NUMBER TO A 
WHICH CONTROLLER IS THE DEVICE 
USING.- 


MASK FOR CHANNEL AND EQUIPMENT 

L 0 A 0. C HANMEL.AND.EQU I P ME NT . 

NUMBER OF DISK CONTROLLERS 


IS THE CONTROLLER BUSY 
JUMP IF IT TS 

FAKE.AN.EQUIPMENT.INTERRUPT 


CIRTEMP 

TERRE 


RESTORE THE CHANNEL INDEX 
REGI STER _ 
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X 

X 

THIS ROUTINE WILL LINK A 

¥ 

DISK TRANSFER INTO THE PROPER PLACE * 


‘CD 



4 01 

402 

403 

X ■ ■ ■ 

X 

X 

TIN HAW AT TU .. .. . . . ^. 

X 

LQQ 0ISK BLGCK NUMBER * 


,G 



40 4 

40 5 

Afl f 

X 

X 

LDI 

ENI 

tl ip 

MXQ POINTER,X3 
RETURN,X2 
m yAn n gfm. 

X 

X 





407 

408 

X 

X 

CLOBBERS 

XI, X2, A, AND Q 

X 

X 


"O 



40 9 

410 

411 

X 

X 

IT USES 

¥ 

THE FOLLOWING TEMPS * . 


.:.g o 



412 

413 

.41.4. 

X 

X 

X 

TEMP 8 
tpmpq 

X 

MASS STORAGE UNIT THE TRANSFER IS FOR * 

Q PTHOM . Annocicc.... x . 


.... 6 



415 

X ’ W ^ 

XX XX XX XX XX X X X X XX XXX XX XXX X XX X X X X X X X XX XX XX X X X X X XX XXX' X X XX XX X X X X X X XX X XXX XXX X X X 


o 

O l 


00214 P 

"" ~Ui± 7 .- ■' 

418 

419 

MXADOGEN 

EQU 

X 



_____ t o 

. r ..00214. 

0 0215 

. 0 0216 

.47 201366.P. 

20001350 P 

03 03 0226 P 

.42*0. 

421 

, 4? ? 

MXSCKi 

.STT . 

LOA 

.. A 7.1 . PO. 

TEMP9,X2... 

MXSLIST 

M Ycr |<4 ..... 

.SA VE' * THE" RETURN "ADDRESS 

. inMp.TP.NO.SUPSTTTOTTQN...-.. 



00217 

00220 

53 50 0 000 

20100001 

423 

424 

HXSCK2 

TAX 

LD A 

XI 

1 ,X1 



o 

U U 221 
00222 

0 022 3 

“"Q'3”50 0224 '"r ‘ .• • 

2110 0 0 02 

01000215 P 

42 5 

42 6 
427 


" ASJ jNE. 

LDQ 

UJP 

M XS C Ki, 

2 ,X1 

MXSCKI 

..'JUMP.TP.NC.Sue s - fI TUTI UN ......... 

LOAD THE NEW BLOCK NUMBER 

CHECK FOR MULTIPLE SUBSTITUTIONS 


.:.... O 

~...g' 022 ¥. 

0 0225 

''■2'OTO'GWa. — ....'. 

03100217 P 

-00226 P . 

:.4'2’S. 

42 9 
_|| 3 0 

. njs'CKz . 

.L H XSC -K 4. 

.CD'S"". 

A2J,NE 

-EQU-.-. 

U ,X1 

MXSCK2 

¥ 

LOAD THE NEXT POINTER 

JUMP IF LIST IS NOT EMPTY 
.. flic.BLOCK-.NUMBER.I S.-N-G.-W.IN.Q.-.-. 



00226 

0 0227 

13000030 

14577777 

431 

432 


SHAQ 

ENQj S 

24 

777778 

LOCK AT ALL THE BITS 


a 

U U23U 

0 0231 
00232 

14 £ f { i f f A ' ~ ' 

0 717 7 77? J< 

01 00 0.315 P 

. 

434 

4 3 5 


■ ENI . 

MIH 

IF 

. rnsapf xis ,ac .......... 

9LQCKT8L,1 SEARCH THE MASS STORAGE TABLES 

0E8.UG, UJ? MXAQ012 JUMP IF ILLEGAL ADDRESS 


...■ o 

0 0 233 

13000030 

00234 P 

.4T6 

4 3 1 

43 8 

... MXA 0 DQ 1 — 

.IF.“ 

SHAQ 

EQU 

DEBUG EQ 0, UJP 

24 

¥ 

MXAuOOIX JUMP IF ILLEGAL ADDRESS 

DISK ADDRESS TO G 



. 062:34 . 

00235 

.no. 

413OO0Q1 

20300005 

. 4 . o .n n. a n n r 

43 9 

44 0 


ST Q 

LOA 

MXQAOO,X3 
MXQCGMf,X3 

SAVE THE DISK ADDRESS 

PUT THE UNIT NUMBER INTO THE 


. : ..o 

U U £ 6 O 

00237 

00240 

j. . % t 

17 4777 G 0 

53240000 

- %'4'x**'* 

44 2 

44 3 


-SH A - '' 

ANA , S 

AIA 

6 

777008 

X 2 

. r 1 X Q L.. 0 - u K 


.....o 

——- 0 '- 0 ' 2 ^x. 

00242 

0 0243 

. izmnnrzz .~.~.*. . 

40300005 

2 0 27 7777 X 

4 4 S 

w q* ^ ^ 


“SH7T 

ST A 

Lf'A 

I 8 

MXQCOH*X3 
ARKAXT- 8 L 9 XZ . 

PUT THE WORD SACK TOGETHER 

.is the PEVTOE on line .'..... 



0 0244 

.. . 0 024 5— 
0 0 246 

0 0247 __ 

03200250 P 

00245 P 

14 47777-6 

34300005 

01000135 P ____ 

' 447* 

44 8 

44 9 

45 0 

451 

HXADD 01 X 

AZJ,G£ 

EQU 

“£N1%tS -- 

RAO 

UJP ' 

x 4*4 ' 

X 

-1 

MXQCOM, X3 

MXNEX 

—-TAKE THE--IR-RETURN.— ..- 


.r.o 

___ o 

00250 

.U 0251.. 

47201365 P 
-... 20-20 01.6 .5. .. X.:... .. 

;.452. 

453 

_45-4 ... 


STI 
l DA 

TEMPS,X2 

.MXWA ITQ, X2.-. 

SAVE THE DEVICE NUMBER 

.G£T.THE PCINTER.TO.THE.FIRST.E-LEM..-. 



0 0252 

. 00253 

00254 

00255 

14200000 

00253 P 

17677777 

03000264 P 

53500000 

455 

456 

45 f 

45 8 
458 

MXA PD02 

ENI 

EQU 

—Am ■ ■ ■ 

AZJ,EQ 

TAI 

0 ,X2 

¥ 

—7777-78 •••■■” ■ 

MXADD04 

XI 

WE HAVE NOT FOUND A MATCH 

JUMP IF AT THE END CF THE QUEUE 

POINTER TO XI 


o 

.o 

....0 0256. 

0 0257 

0 026 Q 

. 2 0 10 0001 ...."... 

03500262 P 

5310 QQ0Q 

— wcr“ . 

461 

4 a 2 


“XOTT... 

AQJ,NE 

TIA 

.RXGTAU'U t X 1 . 

* +3 

XI 

.GET.THE.ADORE'S'S.ON.TH'IS.ELEMENT 

JUMP IF DIFFERENT 

PUT THE P-GINTcR.INTO. X2..1 ...... 



00261 

00262 

.n n 9 ^ ,, 

53600000 

20100000 
n ■i n n n o c; ~z o 

463 

464 


TAI 

LOA 

II in ' 

' X2 

0 ,X1 

K4 v a n n n o. 

GET THE ADDRESS OF THE NEXT BLOCK i 

A KI H. 1 ~ - A A D «• * -3-- A A i/.-.. ..- . . . .... ,.. . , , ,., 


. o 

.U u coo 

lilUutic5j r 

00264 P 

.4 Mj—•«— 

466 

467 

HXADD04 

EGU 

n aAUUu l 

X 

AINU ttur 0 ML K 


.o 


..... 0 025 4. 

'40 30 00 0 5 .~...... 

'.468 .~ 


ST A ~ 

.M XQCSTAT,X3 

CLEAR THE CHANNEL. STATUS 




0 0 265 

04200000 

469 


ISE 

0 , X 2 

SKIP IF NO MATCH 




.. . Q 026.6;.. 

01 0U 0 301 P .:....... 

470 


UJP 

MXADD0 8 

.JUMP IF WE.FOUND A.HATCH. 



o 

00267 

54201365 P 

4 71 


LOI 

T EMP 8 ,X2 

GET THE LOGICAIL DEVICE NUMBER AG 


o 


0 0270 

15200251 X 

472 


INI 

M XWAI IQ,X2 

POINT TO THE PROPER PLACE IN THE 





-21 30 0 0 07 . 

—47'3—- 


-L-OQ—— 

—M-XQP R , X3. 



—"" . 

Q 


00272 P 

474 

MXADD06 

EQU 

X 



....o 
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. 0 0272. 

00273 

..n n pv u . 

20200000 
17677777 
03 (14 0 3 0 4... 

P .. 

475 

476 

.4 7 7 . 


LD A 

ANA 

.A7 J-* EQ.. 

CD 

00275 

00276 

5360 0 000 
20200007 


47 8 

47 9 


nt- U J L. 

TAI 

LD A 

Q 

0 027 7. 

0 0 3 0 0 

03700^03 
0100 0 272 

P 

48 0 

481 

482 


A Q J j L T 
UJP 


0 0301 

... 11030?. 

0 0 301 
20200007 
40 3 0 0 0 0 7.. 

P 

483 

484 

.43-5. 

MXADD08 

EQU 

LD A 

.S.I.A. 

O 

0 0 3 0 3 

20200000 


486 

487 

MXADD09 

w • n 

LDA 

O 

0 030 4 

0 0305 

0 0306 

44 3 0 U u D O 
5330 0000 
44200000 


48 8 

489 

490 

H XftDO10 

SWA 

TIA 

SWA 


0 0307 
00310 
n n vi i. 

20300004 

14700002 

n w uO.n nnn 


491 

492 

..I.QT.... 


LDA 

ENQ 

o. 

■..... UU u±i. 

0 0312 
00313 

14700143 

41300003 


H ¥0 

494 

495 


._. 

M J J J sJf 

ENQ 

STQ 

G . 

00 314' 

01401 366 

P “ . ———— 

“4"9 V 6~~~ 

49 7 
498 




n ri7i q 

00315 
1417 7 7 7 n 

P 

499 

500 

. CIJ.J. 

MXADD12 

■IF 

EQU 

CHIT_ 

O ~ 

"***■ . .. .U.U J'iv .- 

0 0 316 

0 0 317 

13 00 00 03 
17700007 


W JLe 

502 

503 


' 4!1 * 

SHAQ 

ANQ 

O _ 

. O'Q’3’20 

0 0 321 
00322 

43 40 5 772“ 

02100316 

11005763 

P. 01376"' 2' " “' 

P 

P 01374 3 

50 4 
505 

50 6 


“S'Q'C'H" - ~“ 

IJI 

ECHA 


0 0 323 

0 0324 

T470 00'2&' 
14200245 

n1077777 

P 

X 

.507 

5 08 

.c n a. 


ENQ 

ENI 

. u.ip..__ 

O 

------UU-ul-J. 



510 

.DESUGOi 

U si-r- . 


! o 
o 
o 
o 

q 2 

o ; 

10 

o, 

o a 

7 - 

o 6 

o : 


o 


0 , X2 : GET'POINTER . 

77777 B MASK TO BOTTOM 15 BITS 

MXADDIO --JUMP.IF.END.OF.QUEUE. 

X 2 GET POINTER 

MXQPR,X2 GET THIS ONE*S PRIORITY 

MXADD'09 |_ C W ER FRICRITY 

MXADD06 CONTINUE SEARCHING FOR HOLE 


_ . — . . - . 

MXQPR»X2 CHANGE THE PRIORITY ON THIS 

M XQP-R , X3----.TRANS FER. - -.-.— 

0,X2 MOVE THE POINTERS AROUND 

X 3 

o ,X 2 ________..,......_..... 

M XQWCj X3 LOAD THE I/C REQUEST 

2 ALLOWABLE ERRORS FOR A WRITE 

0...-.-..SKIP.IF.A.WRITE.... 

99 ALLOWABLE ERRORS FOR A READ 

MXQERR»X3 SAVE THE ERROR WORD 

TEMP9-—— RETURN TO.THE.CALLER -— 


TTESOGTTQnrrTraTS.DE8UG0T . 

* 

-7, XI ---PR IN T.8.C HA RA-GTERS- 

3 

7 B 

"8 AD 8tro^K'+TTX"l~~ — ~”SA' V E "A.C H A R A C T E R 

*-3,Xl 

BAD8LOGK MESSAGE ADDRESS 

FAD9LKL..MESSAGE.LENGTH. 

MXADD01X jX2 RETURN ADDRESS 

-OPMSG-X—---------- 
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DISKCDP 




MX 31..—.-------.-.—------.:.....-...-. 

THIS ROUTINE IS ENTERED FROM OKHNOLR AFTER A FATAL DISK 
ERROR IF THE REQUEST WASAREADORWRITENSTHECALLERIS 
INFORMED THAT THE REQUEST WAS BAD OTHERWISE A SUBSTUTICN IS 
MADE FOR THE BAD ADDRESS IF THE WORD COUNT OF THE TRANSFER 

IS ONE FILE BLOCK.A FILE BLOCK IS USED FOR THE SUBSTUTION 

OTHERWISE A PAGE IS ALWAYS USED 


IT USES THE FOLLOWING TEMPS 

TEMPI NEW BLOCK NUMBER 

TEMP2 ORIGINAL SLOCK NUMBER 

TEMP5.MISS STORAGE UNIT THE ORIGINAL BLOCK WAS ON 


IT USES THE FOLLOWING ROUTINES 


GETMEM 


MXADDGEN GET6LK 


#•***•*•**■•?• ■ 




0 0326 
0 0 327 
0 0 330 
00331 
0 0 332 

.0 0 333’ 

0 0334 
0 0335 
0 0336 
0 0 337 
0 0 340 
00341 
00342 
E0343 
0 0344 
03345 
0 0346 
00347 
00350" 
0 0351 
0 0 352 
13 Q' 35"3 ' 
00354 
..Q.Q.3.5.5.- 
G 0 35 6 
0 0 35? 

.0 036 G~ 

00361 

00362 
00363 
0 0 364 
0 0365 

0 0 366 

00367 

00370 . 

00371 
0 0 372 
0 0 373 
0 0 374 
0 0 375 
0 0 376 
0 0377 

00400. 

0 0401 

00402. 

00403 
0 0404 
00405 
00 40 6 


-.0.0326. -PL- 

20 30 0 0 04 
37077777 X 
12 00 0 0 0 3 
35300004 
40300004 

'fZWOWS. 

03377777 X 

.53 30.00 OE . 

53600000 
14300002 
00780053 X 
21200001 
41001360 P 
’EO OQ 1350 P 
47301350 P 

. 453043-0-0 0. 

20208005 
12077755 
-44001363 P 
20200004 
14200001 
”0’4’6'0X0’’0‘0 ~ 
1,4 27 7 7 7? X 
1410 3 QUO 
0077777? X 
40 30 0 0 02 
40 001-357 P 
54301363 P 

■’Z4W0TW .X. 

37300270 X 
Jtfl.34J-0-3.6S .X 

15 30 0-364 X 

00366 P 
•47 301’363-''P 

00367 P 
54201363 P 

”2~Q’?0'fl’ff’0T3' .— 

17677777 

..G-30ZZZ.Z.7.X- 

53700000 
20300001 
21001360 P 
03500366 P 
20300000 

44200000’. 

14600144 

40 30 0.0 07.. 

21001357 P 
47201363 P 
14200367 P 
01000214 P 


MX3T06 
M XB T u 8 


AZJ,LT 

-T-I-A_ 

T AI 
ENI 

■RT'J.. 

LDQ 

STQ 

.OTA 

ST I 

-S-T-A-a—- 
LDA 
SHA 
SWA 
LDA 


INI 

EQU 

-ET~f— 

EQU 

LDI 

TD'A 

ANA 

-AZJ^EO- 

TAI 

LDA 

-fc&Q— 

AQJ,NE 

LDA 

SWA-“ 

ENA 

STA _ 

LDQ 

STI 

-ENI~~— 

UJP 


........ 

MXQWC.X3 

9T201918 

“3——~“ 

MXQWC, X3 
M XQWC j X3 

6 . 

MXIRERR 

-JC3—___ 

X 2 

2»X3 

•GETMEM . 

MXQAOD,X2 
TEMP2 

"W'XSlTST”’. 

MXSLIST,X3 

.o,X3.: . 

MXQCOM,X2 

-18 

TEMP5 
M XQWC ,X2 
1,X2 

1TPFBTZ . 

F-BPP, X2 

JX*X1—._ 

GET3LK 
7 , X3 
TEMPI 
TEMPS,X3 

’SITES 
M XWAITQ,X3 
.4i.X-W-A.IXQ-) X.3 . 

MXWAITQ j X 3 
* . 

"XEM'P'5*)“X3“” 

* 

T EMP 5) X2 

.EJTX’2.. 

777778 

...MXBXREI. 

X 3 

M XQA DO)X3 

.TEMF2—— 

MX3T06 
0 ,X3 

.0 ,~X2.... 

SU8PR 

. M-XQP-R )-X3 ... . 
TEMPI 
TEMP5,X2 

H XBT0 8, X2. 

MXADDGEN 


LOAD THE REQUEST WORD 
RESTORE THE ORIGINAL REQUEST 


CHECK TTORT NTS'.SEE ST UTICNS . 

QH WELL 

-MX-G-.POINTER . T-C . X2 . 

GET 4 WORDS FOR A MXSLIST ELEMENT 

GET THE ORIGINAL BLOCK NUMBER 
SAVE THE BLOCK NUMBER 
"LINK THE BLOCK INTO THE MXSLIST 


tts . tic u 


NIT NUMBER 


SAVE FOR LATER ... 

PRETEND WE WANT 1 . SLOCK _ 

NUMBER OF FILE6LOCKS/PAGE. 

-SAX. he prefer ms ao.: -. 

FINISH THE MXSLIST ELEMENT 
KEEP ' THE"BLOCK NUMBER' HANDY 
LOAD THE UNIT NUMBER 

■rCUE’AR. S’IT’23 .ON’THE. MX Q.PC-INTER 


POINT TO THE PROPER ELEMENT 
PU X “T H E- PCI'N TE R - I-NTO.*2.—. 


GET.THE.NEXT.STUCK.’ADDRESS”. 

..JUMP...XE-X-HE—E1LD—OX—-XHE-.QUEUE.. 

IS THIS THE SAME BLOCK 

LOAD THE GRIG INAL—BLOCK-NUMBER- 

JUMP IF NCT 

REMOVE THIS BLOCK FROM THIS 

QUEUE.. ..... 

SET THE PRIORITY WORD 

LOADTHENEWBLOCK .NUMBER 

SAVE THE QUEUE POSITION 

ENTER.-fXE“R£TLRN— — . 

GO LINK THE BLOCK INTO THE NEW 
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DISKCOP 

.4 l 4 if. ^ ^ ^ A 1 # -v- x'-# # # # & & % & & & -v # & w -w* & & & & v- # & & 

* ¥ 

-*■....—MASS.STORAGE COMPLETION.ROUTINE...•—,.-.-.-...-.«■■■■ 

* * 

* THIS ROUTINE IS ENTERED IF THE MS8IT IS SET IN FLAGS * 

* THIS WILL RETURN TO A ROUTINE AFTER A REGUESTEO DISK * 

* TRANSFER IS FINISHED THE RETURN ADDRESS IS IN X3 AND THE * 

* Q REGESTER.HAS THE ADDRESS OF THE FILE CORE BLOCK THAT WAS * 

* USED * 




o. 

0 0 407 

77740000 


507 

VFD 

A12/EINT 




0 0 410 

0 0 411 

.nnai ? . 

20001347 

53500000 

. 1 _ 2 _nn.nn n t 

P 

608 

609 

LOA 

TAI 

CSJ& 

MSOFT R 

XI 

6 


GET THE QUEUE POINTER 

PUT IT INTO XI 

o 

U U 1 X u 

0 0413 

0 0414 

03277777 

77730000 

X 

611 

612 

. & * VH . . 

A2J,6E ■ 
VFD 

RETURN 

A 12/DINT 


EXIT IF THE QUEUE IS EMPTY 

o... 

0 0415 
00416 
00417 

2110 0 0 00 
27000143 
03100421 

X 

p 

■“.‘....6l3. 

614 

615 

LOG 

LDL 

AZJ,NE 

Q * XI 

BIT17 

*+2 


..LOAD.THE FORWARD POINTER .. . ... ........ 

CHECK THE INDIRECT SIT 

JUMP IF NOT EMPTY 


0 042 0 

0 0421 

.... n nu? ? . 

14701347 
41 0U1347 

.. 5 . 55 . 4 . fifi fi fi.fl... 

p 

p 

616 

617 

. 4 \'* _H .... 

ENQ 

STQ 

_T.T.A...... 

MSCPT R 

MSCPTR 

_yj....... 


SET THE POINTER PROPERLY IF EMPTY 

-F R. E1- THE IRA NS F ER -8 LG G K- ...- .- .- 

o 

•>J W 1 C. Cm 

00423 

00424 

Jr XJ A V U ■ W ' 

14300003 
00 777777 

X 

. - . 

619 

620 

. .I. JL H . 

ENI 

RIJ 

3,X3 

FREEMEN 


o .. 

0 0 42 6 
00426 

0 042 7 

21100002 

20100007 

14300407 

p 

“ “-OZl -— 

622 

623 

lbq 

LOA 

ENI 

N XQU f X1 
MXQISTATjXl 
MSC, X3 


tOflu.THE' CORE ADDRESS. 

LOAD THE LEFT OVER WORD COUNT 

ENTER THE RETURN ADDRESS 


. mnmr 

.01500015 


624 

"1TJP7I. 

“’MyQ'COMV^r. 


AND CALL THE COMPLETION ROUTINE 




o 
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¥ ¥'¥¥ * ¥ ** ¥ ¥¥ ¥ ♦♦*****'♦♦**** ¥¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥ »■* * ** ¥¥¥¥ 


627 

62 8 

. # . 

r CT P1 IP F 


* 

. * .. 

629 

630 

* 

* 

THIS ROUTINE IS CALLED TO GET A FILE CORE BLOCK 

* 

...—.....-.. ... “ “ . 631 



.. " —-*->*■...“**.**“ 

.. " • * ..~ ' *.. -« 

632 

* 

DINT 


if 

63 3 

* 

ENQ 

INTERRUPT RETURN 

♦ 

634 

. W""'~ 

ENA 

IMMEDIATE RETURN 

if 

635 

* 

UjP 

GET8UFF 

* 


INDEXES 1 AND 3 ARE SAVED 

THE ROUTINE RETURNS THE 1/4 PAGE NUMEER OF A FILE CORE BLOCK 
IN THE AREGTSTER..—. — 

IF NO BLOCKS ARE AVAILABLE THE CALL IS QUEUED IN CWAITQ 

AND A =.-1.ON THE.IMMEDIATE RETURN AFTER ELOCKS BECOME 

AVAILABLE RTN WILL CALL THE ROUTINE BACK 


IT USES THE FOLLOWING TEMPS 


TEMP3 

TEMP4 

TEffPF' 

TEMP7 


INTERRUPT RETURN ADDRESS 
CALLERS X3 

IMMEDIATE.RETURN ^ADDRESS' 

CALLERS XI 


¥¥¥¥ ¥¥ »» * ¥ ¥ ¥ ¥ ¥¥ ¥¥¥¥¥¥ ¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥ ¥ ¥¥¥ 


0 

00431 

0 0 432 

44001363 
7763 0 GOO 

P 


—6b5— 
656 

65 7 

GET BUFF 

SWA 

DINTC 

TEMP 5 




00435’ 
0 0436 

0 0437 

.410 u'T'3 61” 

47301362 
47101364 

P. 

P 

P 


6 5 £ 

653 

86 0 


.STQ. 

ST I 

ST I . 

.T'EMP'3. 

T EMP4,X 3 

T FMP-7 . XI. 

.SAVE.THE.INTERRUPT.ADDRESS. 

SAVE INDEX 3 

...SAVE.INDEX-.1.-...-. 


o 

00440 

21077777 

.it t. .n i'x 4, ,"2 c rt, . 

X 


661 

662 


LDQ 

N8IT23 

INITIAL AGE VALUE 


o 

U U 4H 1 

0 0442 

5 4 20 135 c 
Qi0Q G 4S4 

r 

P 


. Oto. 

6 64 

665 


LOI 

UUP 

t u L x a I 3 X c 

FCV04 

b 1 A K S ur rLLlbl 



.:.S¥443. 

Q 0 44 4 

0 0 4-45 

'2 0 20 W30. 

03300463 

12000001 

P 


6 6 8 

667 

66 8 . 

. fcwi . 

i m 

AZJjtT 

. SUA . 

F CS , X 2 

FCV03 

. 1 . 

GET STATUS 

JUMP IF I/O IN PROGRESS 
....GET . RES ER V ED . BIT . 


O . 

0 0446 
00447 

03300462 

12077757 

P 


669 

670 


AZJ,LT 

SHA 

FCV02 

-16 

JUMP IF RESERVED 

GET ALTERED AND OCCUPIED BITS 


o 

U 0 45 0 ~ 
0 0451 

0 0 452 

5 3 50’8 0 0 0 
17100003 
20200003 



6/1 

672 

673 


T AI 

AN I 

LDA 

X1 

38,XI 
. FCB, X 2 

j b I 4 INTO a 1 

LEAVE THE IMPORTANT SITS 

GET BLOCK NUMSER 



~.~.0 0 453. 

00^54 

0 0455 

.0 510 WOT. 

03300473 
20 20 0 0 Ql 

P 


6/4 

675 

676 

i 

X 3 G 

AZJ,LT 

. LB A. . 

E f X1 

FCV06 . 

. „E£X,..X 2 ~~.... 

SKIP If OCCUPIED 

JUMP IF A FREE BLOCK FOUND 

.get the last reference tihe . 


O ".. 

0 0 456 
00457 

30 10 0 540 

0 3 600 462 

P 

P 


677 

6 7 € 


ADA 

AG. J $ Gii 

VALUE,XI 

FCV02 

3 i 

BIAS THE TIME WITH ALTERED AND... 
...OCCUPIED. JUMP IF NOT OLDER 


Q 2 _ 

U U 4 o 0 

0 0 461 

0 0 462 

x <$ u o u u vS y 
47201354 
. 2020 G 000 

e 


q / y 

680 

681 

FCV02 

j H a U 

ST I 

LDA 

. c 4 

LOWVALFC, X2 

F CS,X2 ’ 

uL 1 j . H U uLjLc 1 4 b t IN ! U U 

SAVE POINTER TO OLDER PC BLOCK 
_GET ADDRESS.OF NEXT FC LIST . EL. _ 



".~.0 0 46 3. 

0 0 464 

0 0 46 5 

.53W0WQ'. 

Q420GGOQ 

010QG443 

_p. 


.682.“ 

683 

684 

FGV03 

F GV 04 

~TfiT 

ISE 

UJP . 

.X 2 . 

0 f X 2 

FCV01 

SKIP IF LAST ELEMENT 


O s . 

00466 

5 3 0 2 Q 0 22 



685 

686 


TMA 

CLOCK 

GET THE TIME SIGHT NOW 


10 

o 9 _ . 

0 046 7 

0 0 470 

0 0 471 

3 0 U 7 7 7 7 7 
15470137 
03700473 

X 

P 


6 8 7 

688 

689 


A u A 

INA,S 
AQJ,LT 

HOUR 

-4000 

*+2 

ADJUST TIME FOR 4 SEC. AGO 

JUMP IF NOT 4 SEC. OLD 



“.”.00472.* 

00473 

.b’420T3'54. 

47201354 

P . 

P 


.690. 

691 

69? 

FCV06 . 

"TDT.. 

ST I 

LOWVALFC,X2. 

LOWVALFC,X2 

SAVE POINTER TO AVAILABLE ELEMENT 



00474 

00475 

04200000 
01000511 

P 

n. 

.n a , in n 

693 

694 


ISE 

UJP 

0 ,X2 

GTC07 

SKIP IF NO AVAILABLE FC BLOCK 

JUMP IF A USEABLE BLOCK FOUND 


CX 

U 0 4 ib 
00 477 
00500 

—cc U U h f li 4 
0310 0507 
14300002 

r 

p 

U x*o cl u 

696 

697 

b 1 L 0 b 

“-"trAb H 

AZJ,NE 
ENI 

GTC0 6 

. .2 , X3 _ 

0 H U u L U h h U U h u h 1 H1b GALL 

JUMP IF NOT 

GET 4 WORDS FCR A CWAITQ ELEMENT 



..00501. 

0 0502 

0 0503 

.O’OT O 0 3 4TT 

40300000 
35 00 0 416 

.X 

x 


.698. 

699 

70 0 


RT J “ 7 “ 
STA 

, SSA ... 

GETMEM 

0 ,X3 

.BIT17 . . -__ 

SET THE POINTER WORD 

. . . . : . SET . THE . I NOIRE CT . BIT . 


o :J 

0 0 50 4 

0 0505 

n n c n n 

40401351 
25001361 

/, r; 7 n n n FI I 

p 

p 


701 

702 

•7 n n 


STA,I 

LO AQ 

. , v .c JIT, A.. FY*- „ 

CWAITQ 

TEMP3 

A V ~Z 

PUT THE ELEMENT INTO THE QUEUE 

GET THE INTERRUPT ADDRESS 

A K| n TUC C Al 1 CD-fQ TMOC V *2 . 


Q 

ti t! 0 U b 

0 0 507 

4 5 O U U U U 1 

14477776 



/ U o .~~ 

704 

GTC06 

oi A U 

ENA , S 

1 9 A O 

-1 

A 1^1 U * ii t 0 MLlH r w J.INUt a v 

SAY THE CALL WAS QUEUED 



o 
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0 0 510 

.... ;i n 511. 

01000324 

0 0511 
.31? ii n it n n 

P.“.”... 

P 

705 ..' 

706 

.7 H 7.... 

GTC07 

UJP 

EQU 

. 1 rjn .. 

o 

0 0 512 
00 513 

27000107 
03100527 

X 

P 

70 8 

709 


LDL 

AZJ,NE 

o . 

0 0 514 

0 0515 
00516 

.20 00 0 362 

17777777 
4120 0 000 

.X ....■....-.' 

.710... 

711 

712 

G T C G a. 

. LD A . 

ANQ 

STQ 


0 0 517 
00520 

nn co a 

342000U0 
21200002 
i ■? nn iifi 11 


713 

714 

71 c . 


RAO 

LDQ 

O ‘ 

...... uuvcx . 

GO 52 2 

0 0 523 

14577777 

41200003 


716 

717 


enq,s 

STQ 

o.. 

00 524 
00525 
00526 

34 301362 
54101364 
01401363 

p.—....“... 

p 

p 

. 718 ... 

715 

720 

. GTC 0 9. 

LOT 

LDI 
UJP, I 


f 1 n q p 7 

00527 
3 n ? noons 

p 

.721 

722 

GTC10 

EQU 
( f!A 

o ~ 

......... U U Cm t~ ... 

00530 

00531 

53500000 

27077777 

X 

. '■-/.■--■■■■.-... 

72 4 

725 


~-. .. 

TA1 

LOL 

o . 

. u 0b32 . 

00533 
_ 0 0 534 

M v 6 1 U u z> 6 h ■ 
40100002 
.01 0 0 0 51,4 .. 

p 

—( c 6 

72 ? 

728 


.A L u j N£- 

STA 

UJP 


00535 

.....0 0 536. 

25100002 
0 ..za.1-31-3.. 


' 729“ ~.~. 

730 

731 __ 

GTC11 

LDAQ 

.. RT J _ 

O " 

00537 

01000476 

"p . 

732 

73 3 


UJP 

o _ 

....'”0 0 540 • 

0 0 541 
00542 

7774234 i 
77742547 
00 Q01750 


734 

735 

736 

Wrt tl 

""~V'F"0“~~ 

VFO 

VFQ 


. 00543 

nnnnnnnnr 


.. 737“.~ 


.W"D 


GTC09 : ““ 

v 

FCS, X2---GET.THE.STATUS.WORD..-. 

OCC IS THE BLOCK GCCUFIED 

GTC10 JUMP IF IT IS 

— — ———— 

77777B CLOBBER ANY STATUS SITS 

FCS,X2 STORE THE STATUS BACK AND 

F CS,X2 " SAY THAT I/0 Is HAPPENING 

FCA,X2 GET THE 1/4 PAGE NUMBER 

777773 SET THE BLOCK NUMBER TO 

FCBj X2 -0 

TEMF<ri^3-:--r-RTSTO R E “I n DE~X~X 3 

TEMP7 , X1 RESTGRE INDEX 1 

TEMP5 RETURN 


FGAj-X-2-----.GET.THE.CONTROL BLOCK.ADDRESS 

CN3LK PUT IT INTO XI 

ALT HAS THE SLOCK SEEN ALTERED 

■Q~YQ±±———~~ -■ JUMP IF IT HA’S . ! ..— 

COREP,CNBLK STEAL THE BLOCK IF IT HAS NOT 

G TCP 8 ......._._. 

COREP,XI GET THE CORE ADDRESS AND FILE 

SEW RITE---BLOCK.N U M-8ER.AN 0.RE WRIT- £.T-H E. 

GTC05 BLOCK 

■AtWMtWtl —..N 0 COUP I £ 0? “ -15 “ SECONDS~. 

A24/ 0-15000 NOT OCCUPIED, -15 SECONDS 

A24/1Q00 NOT ALTERED, +1 SEC. 

wo .'.... altered,.use.real.age. .. 
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740 

.74 1. 

* 

V 

* 

T W T Q.... O HI 1 T TMP PFTUPKiQ A G 1 n CM O FmPF Tfl TMF FfiT9T * 


0 




742 

743 

* 

OR GIVES IT TO A QUEUED 

* 

REQUEST IN CWAITQ * 


3 




745 

746 







.0 0 544. 

00545 

...0 0546. 

00777777 

14477776 
3 4 0 013 53 

.x.~. 

P .. : . 

747. 

746 

74 c . 

RTN 

RTJ 

ENA > S 
PA n.. 

.MACH ERR. 

-1 

.R TNOOIJMT.. 

.MEMORY PARITY.ERROR. 

.FIX.T H E.C CU NT E R...... 


0 

0 0547 

0 0 547 
77 63 Q 0 0 0 

P 

75 0 
751 

RTN 01 

EQU 

DINTC 

* 



O .. 

0 0552 
00553 
00 554 

0 0 70 11)36 
13000030 
20200000 

.P ... . ..... 

752 

753 

754 


RTJ 

SHAQ 

LD A 

CONVERT 

24 

PCS,X2 

GET THE POINTER TO THE FCLIST 



.0.0555.' 

00556 

.. . . Qo 55 7 . 

3 7 000627 
4020 0000 

. 1 2 Q rt.il.0 01 

P . 

755 

756 

.. 757 .. 


LP A 

STA 

. QUA- .. _ 

RESMASK 

FCS,X2 

. j. . 



o 

0 0 56 0 

0 0 561 

.. n n r~ r ,.o... 

0330 0564 
54101351 

P 

P 

758 

759 


AZJ, LI 
IQ I 

RING 3 
CKAITQ,X 1 

DOES ANYBODY WANT A FILE CORE 


o . 

0 U 5o c 

Q 0 563 

U4 10 1 351 
01 00 0570 

P. 

P 

/bu 

761 

762 


Ibt 

UJP 

G HA I T Q * X1 

RTN 0 4 

□LOCK SKIP I F IS C T 



0 0 564 

.. 0 0565 . 

...0'0"56'4" 

53020022 
.3.Q 00 0 46.7. 

~F . 

..X ... 

.7 6" 3’”'. 

764 

. .765. 

.RTN0 3.. 

'“EQU. 

IMA 

ADA .-. 

... 

CLOCK 

. H OUR-..-. 

GET THE CURRENT TIME 


o 

0 0 566 
00567 

40200001 

01 30 0 0 0 0 


766 

767 

RX3 

STA 

UJP 

FCT,X2 

0 ,X3 

STORE IT INTO THE FCLIST ELEMENT 

EXIT 


o .. 

0 0 570 

41100003 


■ / 6 ' 8 '*' 
7 6 9 

77 Q 

RTN 04 
* 

STQ 

3 , XI 

SAVE THE FILE CORE SLOCK 1/4 PAGE 

ADDRESS IN THE CWAITQ ELEMENT. 



. warsrsr 

00572 

.....0 0 573. 

. ' 2 TT(nroTi'ff . 

27000503 
. 05.4.0.. a.. 0 . 0 . 1 ... 

x 

'.771. 

772 

,.773.. 


.LW 

LDL 

. ASG.» S.. 

.0. 7 X 1 . 

8 III 7 

. 1 ... 

...GET.THE' POINTER WORD OF.THE.NEXT.. 

CWAITQ ELEMENT REMOVE THIS BLOCK 
.: ... SKIP.IF.THE.QUEUE.IS.NOT..EMPTY. 


O - 

00574 

00575 

14701351 

41001351 

• rr “7 4 . ft /1 ft fin 

”p. 

p 

77 4 
775 


ENQ 

STQ .. 

CWAITQ 

CWAITQ 


• 

o 

.UGrJ/o. 

00577 
00 6 Q 0 

P J 1 is J J XJ 

14300002 
Q07Q 0424 

X 

. / o 
777 

77 3 


I I A 

ENI 

RTJ 

X 1 

2,X3 

FREEHEM 




00601 

0 0 60 2 
n Q60 3. 

.25100002 

53 70 0000 
...20 0 0 0.514- 
34 20 0 0 Q 0 
13000011 

X 

.7 7'9'. 

78 0 

781 


"IDAGT " 

TAI 
j nA 

g-yj . 

X 3 

T OP 

RESTORE 'INDEX 3 FOR THE INTERRUPT 


O . 

0 0 604 
00605 

{"• n /? n r 


..../.... 

782 

783 


..te'lirrl—*■'—;- 

RAO 

SHAQ 

FCS,X2 

9 

SET IOP INTO THE STATUS 


o * 

U U DUO 

0 060 7 
00610 

14b/ /fif 
41200003 
14200407 

p 

/CM 

78 5 
786 


tN Q % w? 
STQ 

EMI 

7 ((flu 

FCS, X2 

MSC,X2 

SAY NO FILE. dLCLK ASSGUIATLU WITH 

THIS FCLIST ELEMENT 

RETURN TO MSC 



“ . 00'STi .: 

00612 

.. .. . 0.0.613 _ 

210 01353 
04530000 
..0100 3 617 

.p ...... 

. g .__ 

*.737 . 

7 8 8 

_ 78 9_ 


“nror 

QSE f S 
UJP ___ 

rTNC'O'U'NT.*. 

0 

_ R.XN-0.2. ... 

........ flux BLOCKS 3ECCHE AVAILABLE. 

SKIP IF NOT 

__ gXJJ—XE-T-HEX..W X L L.-.___:.. 


O “ 

00614 

00615 

21001351 
04791351 

p 

P 

790 

79 i 

7H 


LQQ ■ 
QSE 

CWAITQ 

CWAITQ 

IF NU REWHITTING IS QUEUED AND 

CWAITQ IS NOT EMPTY 


q 2 _ 

U U clb 
00617 
00620 

X 4 C if u b C L 1 ■ 

0150000.1 

14300407 

JP.. 

71 £ 

/ 9 3 
794 

RTN 02 

cN a 

UJP j I 
EH I 

--*—*“+ J , X c 

1 ,X1 

MSC, X3 

RttuKN 1 L HERE 

CALL THE ROUTINE THAI NEEDED THE 

BLOCK ENTER THE RETURN ADDRESS 



...0 0' 62'X . 

00622 

....U 06 2.3. 

14577777 
14600624 
. 01 00 0 431. 

P 

P_ _ ___ 

. 795 

796 

7 9 7 ... 


HEFfcrrs™" 

ENA 

.UJP-._ 

7T777B - . 

* +2 ■ 

. GET BUFF. 

~.*.SAT.NOT.T O. QUEUE' THE "CALL .. 

SET THE RETURN 

. .. GO .A-SK..FOR.A. 6 LCCK.......... 


o x * 

10 ***** 

00624 

0 0 625 

. 0 0-62*6- 

03300567 

13077760 

01000547* 

P 

P 

79 8 
799 

—IHH}—' 

301 

302 


AZJ,LT 

SHAQ 

-tiJP 

RX3 

-15 

DON'T PANIC IF WE DIONOT GET ONE 

FORM CORE ADDRESS IN Q 

—r* .. 

o. 

00627 

20 0 7 7777 


RES MASK 

OCT 

20077777 
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DI SK CO P 


* 

-GIVBUFF - --- -.- --—- -*■ 

* 

CALL TO GIVE UP A FILE CCRE BLOCK * 

IF HE SHOULD REMEMBER THE INFORMATION IN THE ELOCK * 


811 

* 



* 

812 

-V- 

LDQ 

18 SIT CORE ADDRESS 



RETURN,X3 
GIVBUFF. 


IF.W EWANT .TOFORGET THE IN F ORMAT IC N IN THE BLOCK 


... 




820 

821 

. a 90 . 

^ - .. 

* 

.-* . 

.IF.174 

IF 18 

PAGENUMBER IS. 

BIT CORE ADDRESS 

IN PFLOC CALL GIVBUFFP * 

IS IN Q CALL GIVBUFFX * 

.............* . 


O 




824 







....82 5... 

826 

827 






o 

00630 

77650001 


GIVBUFFP 

PFA 

PFLOC+PFR 

GET GLOBAL PAGE NUM 8 ER FROM PFLOC . 



0 0631 

0 06 32 

13077760 

00632 

7 7 63 0 0 0 4 

P 

828 

829 

83 0. 

GIVBUFFA 
GIV BUFF X 

SHAG 

EQU 

nxNxn . 

-15 

* 

CONVERT TO A CORE ADDRESS 


O . 

0 0 635 

0 0636 

00701036 

14477777 

P 

831 

832 


RTJ 

ENA , S 

CONVERT 

777778 

GO LOOK FOR THE FCL13T ELEMENT 

FORGET THE INFORMATION IN THE 


o 

. 00637 

00640 

“4t*2#W0'3"* 

01000642 

P 

83 3 

834 

835 


ST A 

UUP 

F C 8 ,X2 

6 IV3UF01 

BLOCK 



00641 

(1 0 641 

0 0 70 10 36 

li !| hh9 

P 

P 

P 

83 6 
837 

GIVBUFF 

P TVPIJFfi 1 

EQU 

RTJ 

FQ.i.L. 

* 

CONVERT 

. * . 

FIND THE FCLIST ELEMENT 


o — 

.00642". 

0 0 643 

5330 0000 
53500000 

—p-"'"'.-.-.*..-. 

....... ."U'W.Or. ... 

839 

84 0 


f IA 

TAX 

X 3 

XI 

PUT THE RETURN ADDRESS IN XI 


o _ 

00644 

00645 

0 0646 

.4100135/. 

14300003 
00 70 0501 . 

'P. . 

X ' 

-- 

8 41 
843 


STQ 

EMI ■ 
RTJ 

TEMPI 

3, X 3 

GETMEM 

SAVE T H.L G L K b. A L 0 R15 S 

GET 8 WORDS FOR A FAKE MASS 

STORAGE COMPLETION BLOCK 



".00 647. 

00650 

0 0 651 

14 60 0 545 
40300005 

7 020 00 00 

P 

.W4 

■ 845 . 

546 


HERTF 

STA 

.LO. a . 

....... . 

MXQCOM, X3 
. p.CS X-2-_ 

.SAT?' TO RETURN TO RT N 

......LOAD.THE STATUS.WORD_______ 


O . 

0065 2 
00653 

35 00 0 60 3 
40 200000 

X 

847 

84 6 

.-—.IS* ,. 


SSA 

STA 

IOP 

PCS, X2 

MAKE THE CORE BLOCK UNAVAILABLE 


o 

00654 

0 065 5 

0 0 656 

14 6 U 0 ij u . 
34001353 
21001357 

p 

■p 

■< 4 - 

85 0 
851 


^NA 

RAD 

__LDQ_ 

RTNCOUNT 

TEMPI 

5A Y "uiHt nCRfc cLCuK IS uU nn INb 

AVAILABLE 

LOAD 1 HE CORE ADDRESS AGAIN 



..00657. 

0 0 660 

. 4T3F00TT2 . 

01000136 

p 

.¥S~E 

853 

__ asA. _ 


Si Q 

UJP 

.MXQQ,X3. 

MXNE 

..SAVE .THE.ADDRESS IN THE DISK 

BLOCK 



0 0 661 00 00 0001 


I HPUREG 5 VFD 


A24/IMPURE 
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861 
no, 0 

if a/. if, if. y if. if. if. if. if. if. if. -if. if. if. if. if if if >f. if y y y y y :f y y jf y if. y if. if if. if. if ;f if if xf if if if if if if # if if y ip y if if if if if if if if y if if if if if. if. if. 

* ¥ 

. y tutq pniiT tm F.... Tm FPFF A FT IF HR PART C F A F Tl F TO THF FRF F.. *■ 




® 

a 




.O Ox.. 

863 

864 

.865 . 

86 6 

367 

* FILE BLOCK TABLE * 

* ENTER WITH THE NUMBER OF BLOCKS TC BE FREED IN G AND THE * 

.*.—.. NUMBER.OF THE FIRST BLOCK IN THE.A REGISTER * .. 

* RTJ FREEFILE * 

* THIS ROUTINE RESTORES ALL OF THE INDEX REGISTERS * 







868 

67 0 

* 

3 r -v- ^ J r ^ v v ^ ^ ^ ¥ t r 

-V- 

If if. if, if if, %.if.if. if. if. if. if if. if. if, if ifif. if y r XV if if. if if. if if# # # it if % if If if If if if if. if. & it if yjf.il if. if. & if. 




o 

0 0 662 

14200001 


871 

872 

FREEZIP ENI 

1 ,X2 


SPECIFY A SINGLE BLOCK 




o 

0 066 3 
00664 

Q 0 665 

00777777 
14200000 
01000000 

.x .“.~~........-. 

87 3.. 

8 74 

875 

RT J 

FREEX2 ENI 

FREEFILE UJP 

FREE0LK 
IMPURE,X2 
IMPURE 


FREE THE FILE BLOCK 




0 0666 

0 0 667 

n H 6 7 n 

7 77 3 0WG ' 
05 50 0 Q 01 

p 

876 

877 

A 7 A 

VFO 

QSG,S 

y !P 

A12/DIN I 

1 

rpcpcTi p. 


.thFQF .illrF-.MO.B.I.IN.XHF.FIX F. 




o 

......u.U' 0 t .u.. 

00671 

00672 

47200664 

05500002 

p 

87 9 

880 

STI 

QSG,S 

F REEX2,X2 

2 


SAVE”INDEX 2 




o 

0 0 or 3 
00674 

0 0 675 

.010006 OC 

47100712 

47300713 

r *.. ..*" .. 

P 

P 

“•'•3'ox”. 

8 82 

88 3 

..—-.-.uur-- 

STI 

STI 

F rCXE fe Xr 

F REE XI,XI 
FREEX3,X3 


NO QUcUclNG I C Fk ch i r X Lc 8 L.0LK « 
SAVE INDEX 1 

SAVE INDEX 3 




..0 067 6 . 

0 0677 

.OBOTTOSO'' 

34001355 

p 

.8’S’4. 

885 

...-.- 

.SHUTS'.~ 

RAD 

* 

..24.. 

COUNT 


COUNT UP THE TOTAL NUMBER OF 
..BLOCKS-THAT.NEED.TO.BE.FREED. 




o 

0 070 0 
00701 

45001357 

14300002 

p 

v 

887 

888 

STAG 

ENI 

TEMPI 

2 ,X3 


SAVE A AND Q 

GET FOUR WORDS OF FREE MEMORY 




o 

U u ( u 2 

0 0 70 3 

0 0 704 

uU /1U64b 
25001357 
4530 00G1 

X 

p 

'" b d 9 ' 

890 

891 

.......—..j j 

LOAQ 

STAG 

13 h T M E M 

TEMPI 

1 ,X3 


RESTORE A AND G 

PUT THEM INTO THE QUEUE ELEMENT 





.0 0 705 

00706 

...00.70.7. 

.477 0 'f 3"5*6" 

47301356 

.20 0 77.777. 

7 ...“.“. 

P 

...X... 

“592. 

893 

.894 . 

.: .Sri', 1 . 

STI 

LDA 

.FREEFLAG,X3. 

FREEFLAG,X3 
..I08USY. 


LINK THE ELEMENT INTO THE LIST 

FIX UP THE END POINTER 
..| O AO.T HE. 8 U SY.EL A G. 




o 

0 07l0 
■ 00711 

n a 7 t o 

1 43 0 G 712 
03201005 

P 

P 

395 

896 

a ai 

ENI 

AZJ,GE 

*+2»X3 

FREESTRT 


ENTER THE RETURN ADDRESS 

JUMP IF THE QUEUE IS NOT BUSY 




o 

0 0713 
00 714 

14 i' ll o is tl'tl. 

14300000 
01QQQ664 

P 

898 

899 

r RE E Xx cM 
FREEX3 ENI 

UJP 

1 fir ul\LJ A 1 

IMPURE,X3 

F REE X 2 






0 0715 

......0,0,716. 

4700 Q722 
.... .4.7.3.0-0..Q..25- 

P 

_..B_.............. 

.9013’ . 

901 

.9.02. 

STI 

...O-OME.sxi.. 

FREEIR,0 
.F REE , X3.. 


IRRECOVERABLE I/O ERROR 
..SAVE.THE.RETURN ADDRESS. 




o 

0 0717 
0Q72G 

14 30 0 000 
13000017 

. 7.7 . c. i, .n .n.,,rt.,.-i. 


903 

904 

Cs ri 

FREEQ 8 ENI 

SHAG 

I MPURE» X3 

15 

n c: 1 r\ r* i ii c e.s 


GET POINTER TO QUEUE ELEMENT 

FILE CORE BLOCK 1/4 PAGE NO. TO A 




o 

U u f d 1 

0 0722 
00723 

14600077 
03 00 1020 

P 

Tu 3 - 

906 

90 7 

FREEIR ENA 

AZJ,EG 

rr tuwTrr IN 

778+IMPURE 
FORGET 


riXJrfcPpb.tllLt 

ANY NON ZERO VALUE SEZZ NO ERROR 

JUMP IF IR I/C ERROR 





.. 0772'4"" 

0 0 725 

.0.0.726 . 

ZGSQTTG'Or 
14200001 
0.0 70.0.6.53. 

. X. 

.BOB 

909 
.. 91.0 

.......nrr - .. 

ENI ■ 

_____RIJL.. 

2 $ X 3 
i • X2 • 

F RFFEM K 


LOAD THE BLOCK. NUMBER 

SPECIFY A SINGLE FILE BLOCK 

... FREE. THE BLOCK .-. 




o 

0 0 727 
00730 

, . ,, n n 7 7 -s 

2 0 30 0 0 01 
15477776 


911 

912 
'■ , 2 

LQA 

INA,S 

1 ,X3 

- 1 


LOAD THE COUNT OF BLOCKS IN THE 

FILE AND DECREASE IT BY CNE 




Qa 

u u i 0 X 

00732 

■ J O H U if il il C 
01000760 

p 

7 "X 0 

914 

O 4 : f£T 

B X J 

UJP 

2 . , 

FREEXIT 


XfKir Tr I vre UK nuKt Lhr 1 

ONE BLOCK ONLY CAN SE FREED 

WITH NO I/O TRANSFERS 




o’ 

.0 0733'“ 

0 0 734 

...0.0 73.5. 

.4 0 30 G~0“QT 

14 477 776 
.3 0.0 0.1355.. 

p .._... 

. 91 e 

917 

. 9 . 1.3 . 

ST A 

ENA j S 
AHA 

1 , X 3 

-1 

_COUNT._:_ 


STORE AWAY THE COUNT 

.COUNT DOWN.THE.TOTAL.COUNT..... 




0 0 736 

0 0737 

0 074 0 

0 0 741 
00742 

40001355 
21077777 
14200000 
0540 00 GO 

0 3 70 0 7 44 

p 

X 

919 

920 

921 

922 

923 

STA 

LOG. 

—.ENI.. 

FREPANIC ASG,S 

AQJ,LT 

COUNT 

MSQTOTAL 

0,X2 

IMPURE 
_*+2.. 


STORE IT BACK 

GET THE AMOUNT CF UNUSED SPACE 
-SET FREEING PRIORITY TC ZERO'- 
SKIP IF 107. OF THE STORAGE NEEDS 

TO BE FREED 




"10 

O- 

JP_... 






.0 0743. 

0 0 744 

.....Q..0Z4.5.._ 

.14'2T0'3TJ3. 

47200024 
.77 65 0 0 fit 

P 

'' 924“. 

925 

_92.6._. 

.“.*...ENT. 

STI 

_____PFA_ 

FREEPR,X2 
FREEPRWD,X2 
__PFLOG+PFR_ 


SET.THE.FREEING.PRIORITY.:.... 

_PET THE.1/ 4.PAGE.-NUMBER.OE.THE. 




.... 

o 

“7 

00746 

. n 071 , 7 

13077760 

on n n /, n O n 


927 

928 

0 0 a 

* 

SHAQ 

1 n a 

-15 

p no ;r 


CORE WE ARE USING 

FORM A CORE ADDRESS IN CQ) 

. - , flCT TUC C A DU A C H DAT KiT CD 




o 6 

U U f Hr t 

0 0 750 

0 0751 

eUUUHUUu 

05 40 0001 
00000751 

P . 

ye. y 

930 

931 

L O n 

AS G, S 
HLT 

w yl\ C 

1 

❖ 


be l 1 nt rOKWMntlJ r uiTlI■TTrr 





‘ . 00752. 

0 0753 

.. 0 0 754. 

.¥0“30'0'0"ff'2“ 

14100002 
14.20 Q 104 

X. ...: 

932 .*. 

933 

93 4 

STA 

FRE ElNIT ENI 

ENI. 

T — — 

2 ,X1 

. REAO,X2 


..PUT.IT.INTO.“THE.QUEUE ELEMENT ... 

READ IN THE POINTER WORDS 




o 

0 0755 
00756 

... .. n n 7^ 7 . 

14300716 
17577000 
n a n ty n n o a 

p 

935 

936 

077 

ENI 

ANQ , S 

II in 

D ONE , X3 
770006 

D .-CvCL-D ^ 


INTERRUPT TO DONE WHEN THE I/O 

FORM AN 18 BIT CORE ADDRESS 




a. 

u U ( O f* 

il l U U U U il D 

.r ' ■ 1 

as 0 7 . 

938 

.. . . 

r KH't'ri 


b ti xlN lUM 1 C I n t rKA lN j r CK 





o' ; 
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o 
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o 
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DISKCOP 


O 


o 

o 

o 

o 

o 

a 

d 1 

% 

o„ 

o 3 

7 

o, 

11 

Q 5 

Q, 


10 ■ 


989 

990 

991 

992 
99 3 

994 

995 
.996 

997 

998 

999 


* * 

.*.—._.—.C ON VERT.-..-..-.-.-.-.-.- -... * 

* * 

* DINT 

"—~.LDQ 

* RTJ 
*• 

.¥ 

* 

* __ 

*• 


—18 81T C ORE.ADDRESS — 

CONVERT 

T HE ROU TINE R E TURNS UITH.X 2 POINT IN G TOT HE F CO ST EL E HE NT 

THAT CORRESPONDS TO THE CORE ADDRESS AND THE CORE ADDRESS 
IS- MASKED.TO.JUST THE 1/4.PAGE.BITS----,.---.-- 




o.. 

01035 

12400022 


10 U 1 
1002 
1003 

CON VERTD 

SHQ 

1 8 


010 3 6 
01037 
.CIO 42. 

01000000 
77 63 0 0 Q0 
.14 60 0 . 0 0 0 . 


. 100 4. 

1005 

.l-O-OB . 

CONVERT 

UJP 

DINTC 

_EW.fi.-.. 

IMPURE 

.. Q.. 

o 

010 43 
01044 

17577000 

13000036 


1007 

ioo e 


ANQ,S 

SHAG 

770006 

24+6 

o... 

U1U43 

01046 

01047 

1 6 U f f ( 

53 60 Q G 0 0 
13077770 


.. T 0 S'9. 

1010 

1011 


.SH.AU.. 

TAI 

SHAQ 

-17 

X 2 

-7 


.OTOT5TT. 

..040.5-1.- 

~2*0 277777' 
01051 
.63 60 0 000 

’X... 

p 

.TOTE. 

1013 

.iOi 4 . 

CONVERT X 

T£TA. 

EQU 

. TAT___ 

.FAGETABlV'XF 

.X-2. 

o 

01052 

01053 

11700000 

37200002 

'soooo" o' 

101 r 
1016 


ECHA »S 

LPA 

3 0 0 0 0 0 B 

FCA, X 2. 

0 .. 

till) 54 
01055 
01056 

03401037 
20200000 
01001051 

p 

101 / 
1018 
1019 


n G d f uQ 

LOA 

UJP 

CuNVERTO' 

0 ,X2 

CONVERT X 


FORM.18. COR E.ADDRESS.IN.(Q). 

get” JUST.THE.1/4.FACE ADDRESS 

CONVERT ~TC A-'FAGE NUMBER --.~ 

1/4 PAGE NUMBER TO HIGH IQ) 
TOW.FCLISTPCINTER. 


-POINTER .TC.X2---.-. 

CHECK FOR THE PROFER 1/4 PAGE 

JU M P "I F ”1T - IS ----—“ 

POINT TO THE NEXT FCLIST ELEMENT 
AND LOOP BACK 


"CD 

. s o 

' 9 

o 

KftO 

" 6 o 

. 1.0 

o 
. o 
o 
o 
o 
o 
o 
. o 
o 
o 
' o 
o 
o 
o 


o 


o 
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jgt JyL .3;. Jf. Sf. ^ ^ ^ ^ if ^ 




01057 

01060 

.01061 

01062 
01063 
01066 
01071 
0107 2" 
01073 
01074 
01075 
01076 
0107 7 
01100 
U1101 
01102 
01103 
01104 
0110 5 
01106 

01107 

OHIO 

01111 

01112 

01113 

01114' 

01115 

0-1116- 

01117 

01120 

0'±1~21“ 


25100002 
00701313 P 

14200000. 

01000000 

^77630000 .- 

53020036 
47201061 P 

*7 7 650001. 

13077760 
00701036 P 

.53 020 WZZ . 

30000565 X 

.40 20-00-0-1-- . 

53100000 

44200002 

20100002 . 

12077747 
1240 0001 

13 0 7 7776. 

41 10 0 0 02 

.37 00 0531.X. 

3520 00GQ 

3 7 0'0*0'‘44'0“”X~ 
35000512 X 
40200000 

T 2 ' 0 " 0 ¥ 00 l. 

03301057 P 

..,.2-1-0-0-1351- . P- 

20001353 P 
04701351 P 
“a-3-0ir±O*57--P- 


1022 

-4023 

1024 

1025 
10 26 

1027 

1028 

1029 

1030 
.1031 

1033 

1034 

1035 

1036 


0 1122 01 00 


1040 
10 41 

1042 

1043 

1044 

T0"45. 

1.0 46 
-1-0 47- 

1048 

1049 
-1-65-0- 

1051 
_1_0 52„ 
1 0 53 
1054 

105-5 . 

1056 
1Q5 7 
tlW 
10 59 
1060 
t wr 
1062 
-1-0-63- 
1.064 

1065 

1066 
1067 
1 0 6 8 


THIS ROUTINE IS TO FLOAT.A GORE -BLOCK-(IE. MAKE IT AVAILABLE 

FOR OTHER I/O OPERATIONS) 

IT ASSUMES THAT THE CNBLK INDEX POINTS TO THE CONTROL ELOCK 

WHOSE CORE BLOCK IS TO BE FLOATED .~...... 

PFLOC IS ASSUMED TO HAVE THE PROPER 1/4 PAGE NUMBER 
DISABLE THE INTERRUPTS AND ENTER WITH AN 


FLOAT 


FLOAT THE CORE BLOCK 




FLOATX 


FLOOR 

FLOAT 


LDAQ 

RTJ 

TNT 
UJP 
QINTC 
LEV ELC 
STI 

SHAG 

RTJ 

TFTA 

ADA 

-ST-A. 

TIA 

SWA 

-tS-Ar- 

SHA 

SHQ 

WQ. 

STQ 

LP A 
SS A 

irP-A—— 
SSA 
STA 

"SH'A. 

AZJ,LI 

.LD-Q-- 

LDA 

QSE 

AZJ,EQ 


COREP,CNBLK 
REWRITE 

IMPURE,X2. 

IMPURE 

( ) 

FLOOR,X2 
PFLOC+PFR 

-15 

CONVERT 

"CLOCK. 

HOUR 

-F-G-T-.-X-2—.. 

CNBLK 
F CA, X 2 
COREPjCNBLK 
-24 
1 

___ 

COREP,CNBLK 

ALT. 

ECS,X2 

N TOP'.. 

OCC 

F CS,X2 

T . 

FLOATX 

.CWAI-TQ-- 

R TNCOUNT 
CWAITQ 

, F tOArFie-— — 
FLOOR 


GET THE OGRE ADDRESS AND FILE 
BLOCK NUMBER AND REWRITE THE BLOC 

RESTORE.INDEX.2. 

RETURN 


SAVE INDEX .2 

READ' THE FILE" CORE BLOCK NUMBER 
FORM THE CORE ADDRESS IN (Q) 

FCLIST POINTER TO X2 

”C"0"MFUTE.THE "'REFERENCE' Tlffi ON 

THIS SLOCK 

AND-.SAVE - IT--I-N.-THE.F-CL 1S T.ELEMENT 

SAVE THE CONTROL BLOCK ADDRESS 
IN THE FCL1ST ELEMENT .. 

ONE WORD FULL OF ALTERED BITS 
PUT THE ALTERED BIT ON THE 

ADDRESS.IN.Til.."". 

AMD SAVE THE ADDRESS IN THE 

CONTROL.BLOCK--—. 

LEAVE THE ALTERED BIT 

OR IN THE REST OF THE STATUS 

INDICATE"NO 17 O I N.PROGRESS--~ 

SET THE OCCUPIED BIT 
SAVE THE NEW STATUS ' 

"CHECK.FOR.RESERVED. 

REWRITE THE BLOCK IF RESERVED 


RENRITE.IF.RT NCCUNT = 0.AND... “ • 

...CWAITQ IS NOT EMPTY. 

EXIT IF BLOCKS ARE NOT CRITICAL 
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DISKCOP 


01123 0 0 DO 0 0 0 0 

0112 A 7763 0 000 
0112753020036 
01132 53100000 

01133 40377777 X 

0113 4.53300000 ." 

01135 15677777 X 

0113640377777.X 

01137 14701146 P 

01140 14601142 P 

01141 01*00-0 431:~P 

01142 03301157 P 

01143 77640001 

01144.44377777.~X' 

01145 01401123 P 


01146 44301144 X 

01147 13077760 

0115014477777.X 

01151 34377777 X 

01152 47377777 X 

01153.14 677777 X 

01154 35000140 X 

.01155 .40 001154.X 

01156 01200000 

. - ■ 01457 P- 

01157 14677777 X 

01160 34301151 X 

.01161.2'G’G0TiZ3.P 

01162 403011.35 X 

U116 3 .010 77777.X. 


V V V V ¥ V * A* 




10 71 
4072 
107 3 

107 4 

1075 

1076 
10 7 7 

10 79 

108 0 
1081 
1082 
10 83 
1084 
10 8 5 

.1086 

1087 

.1088-.. 

1089 

1090 
10 91~ 
1092 
109 3 
109 4 
1095 
109 6 

1097 

1098 
109 9 
1100 
1101 

TIQ2. 

1103 

-1104... 

1105 

1106 
■1-40*7- 

11QS 

1109 

TITO'" 

liil 

4412.. 


.THIS.ROUTINE GETS A BLOCK.OF CORE .*-*---- 

CALL IT BY DISABLING THE INTERRUPTS AND EXECUTING AN 


■¥•¥■* * AM* ¥ * AM* - 


GET CORE 


VFO 
DINTC 
LEVELC 
TIA 
ST A 

.TIA. 

INA 

.ST A.— 

ENQ 

ENA 

AZJ,LT 
APF 

'.SWA 

UUP, I 


GET CORE X 


SWA 

SHAQ 

ENA TS- 

RAD 

STI 

ENA 

SS A 

ST-A._ 

UJP 


-S-WEA'T” 


GETCORE 


A9/JMP,A15/IMPURE 


GET A CORE BLOCK 


¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 


-Ci~———- 

XI 

II.PSA 

.PSA .... 

F 7 

PC, PS A 
GETCOREX ’ 

GET BUFF- ■ -. 

SWEAT 

PFLOC+PFW 

.P FI,PSA . 

GETCORE 

P FI,PSA. 

-15 

~NNSWAIT 
I080UND,PSA 
X FLAG,PSA 

swan. 

FLAGS 

.FLAGS--- 

0 ,X2 

MSWA IT 
I 080UND,PSA 

"■"GETCORE. 

F 7» P S A 

.RMDONE-..-. 


CONTROL BLOCK ADDRESS TO A 
SAVE IT IN THE USER7S INDEX 1 

PSA POINTER TO.A. 

POIN1 TO THE F7 WORD 

SAVE.IT AS THE USERS FROGRAM 


SAVE THE 1/4 PAGE NUMBER IN THE 
PSA FORM THE CORE ADDRESS IN Q 


RETURN 


TOAD.THE.RE T OWN.ADDRESS... 

STORE THE RETURN ADDRESS INTO F7 
GET T HE HELL CUT OF HERE— * 
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DISKCOP 


01164 

01165 

01170 

01173 

0117 4. 

0117 5 
01176 
0117 7 
01200 
0 1201 
01202 
01203 
0120 4 
01205 
01206 
01207 
01210 
01211 
01212 
01213 
01214 


00000000 
77630000 
53020036 
20 001164 
44377777 
00701123 

.20 301174. 

40301162 

77650001 

13077760 

00701036 

53300000 

W2T0W2. 

14601157 
34 301160 - 
20100003 
40 377777 
1420 0 754""' 
14301217 
141010 00 
.GWtTOTlX" 


01225 

01226 

01227 

- 0 - 123 - 0 " 

01231 

01232 

01233 

01234 

01235 


-23-104-214. 

40200003 
14401150 
-3410120 6 
14601153 
35001155 
'40'00T232“ 
47101152 
44400477. 


1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122. 

1124 

1125 

1126 
112 ? 
1128 
1129 
'113 0' 
1131 

-44-32 

1133 

1134 
44"3-5- 

1136 

1137 
1138' 
1139 

-.44.40- 

1141 

1142 
.4143" 

1144 

1145 

1146 


* & 

-—...THIS ROUTINE- IS TO READ - A. FILE .BLOCK.SPECIFIED.BY.THE.GBP.* 

* WORD OF THE FILE CONTROL BLOCK POINTED TO BY THE CNBLK INDEX. * 

* THE BLOCK IS REAO INTO THE CORE BLOCK SPECIFIED BY PFLCC * 

HE • ROUTINE BY DISABLING THE INTERRUFTS AND EXECUTE AN—’*- 


FIX THE .CUR REN T F ILE.BLOCK 


.14-56- 

1157 

1158 

1159 
116 0 
1161 

TTET 

1163 

1464- 


¥ ? z.’-wv- V-V- AMMf 4f ¥ * ' 


V FD 

DINTC.- 

LE VELC 
LD A 
SWA 
RTJ 

.LDA- 

STA 

PFA 

-S'H-A-Q— 

RTJ 

TIA 

SWA 

ENA 

-RAD.— 

LD A 
STA 

-Eftf— 

ENI 

ENI 

-RTJ 


01215 

01001163 

X 

1147 

.-1448.-. 


UJP 

01216 

47 001235 

P 

1149 


STI 

01217 

Q07U1036 

P 

1150 

FIXED 

RTJ 

01220 

01221 

01222 

2 0 20 U 0 0 2 

5350 00Q0 
1200 G011 


.r±5T“. 

1152 

1153 


L D A 

TAI 
• SHA 

.01223. 

04224 

.17600777 

44 IQ 1146 

X 

1154 

1155 


“ANA. 

SWA 


-I-RE-LA4 


-LDA. 

STA 
ENA, 
RAD 
ENA 
SS A 

STA.* 

STI 

-ISE— 


0123 6 

01300000 


1165 

UJP 

01237 

14677777 

X 

1166 

EN.A 

01240 

40101177 

~x-——— 

' 1167 . : 

-----STA— 

01241 

20177777 

X 

1168 

LDA 

01242 

53 50 0 000 


1169 

TAI 

01243 

2 0 000 572 

' X. 

.1170. 

.LDA. 

01244 

35100004 


1171 

SS A 

01245. 

.. 4 0 10 0 0 0 4. 


__14 7 2 _ 

..—.-.ST-A_ 

01246 

14 60 G 0 77 


1173 

ENA 

01247 

44001235 

p 

117 4 

SWA 

01250 

1460 0 000 


1175 

—————ENA— 

01251 

40100002 


1176 

STA 

0125 2 

01000632 

p... 

1177 

UJP 


A9/JMP,A15/IHPURE 

( ) 

FIX 

12,PSA. 

GETCORE 

I2,PSA—---- 

F7,PS A 
P FLOC + PFR 

CONVERT 

PSA 

FCA, X2... 

MSWA IT 

-I-030 UNO , PS A — 

CBP,CNBLK 
A ,PSA 

-R-EArBrX2- - 

FIXED.X3 
WPFB+2,XI 

.FEAR. 

RMOONE 

.IRFLAGjO. 

CONVERT 

FCATX2 

XI 

9 

.7773“. 

PFI, XI 

A ,X1 -...- 

FCB, X2 
NHSWAIT 

I030U — 

S WBXT 

FLAGS 

TDTC5. . . 

X FLAG,XI 

.7-78-+-IMPURE-,4- 

0 ,X3 
READRTN 

-FTTX"i“~”---- 

SELECT,XI 
CNBLK 

“AOS. 

GPP,CNBLK 

CPPjCNBLK-— 

7 73 

IRFLAG 

- 4 — 

COREP,CNBLK 
GIVBUFFX 


SAVE THE RETURN IN CASE THE CALL 
.IS.QUEOEQ.IN.GETCORE..■ 

GET.THE RETURN.ADDRESS..-. 

SAVE IT IN THE F7 WROD IN THE PSA 
READ THE FILE CORE BLOCK NUMBER 
-SAVE"THE l8 BIT ADDRESS IN G 
FC LIST ELEMENT ADDRESS TO INDEX 2 
GET THE ADDRESS OF THE PSA 
SAVE.IN THE.FCLIST.ELEMENT... 


LOAD THE FILE BLOCK NUMBER 
SAVE IT IN THE PSA ALSO 

ENTER THE RETURN ADDRESS 
ENTER THE WORD COUNT 

CALL."THE.HIGHER.PRIORITY.ROUTINE. 

GO TERMINATE THE USER TEMPORARILY 

.IRRlCOviTRABLE.I/O.ERROR 

FCLIST ELEMENT ADDRESS TO INDEX 2 
GET'THE PSA ADDRESS OF”TttE~PROPER” 
USER PUT IN INDEX 1 
GET THE 1/4 PAGE NUMBER OF THE 

FILE CORE.BLOCK. 

AND SAVE IT IN THE PSA 

-LOAD.THE.FILE BLOCK. NUMBER . 

AND SAVE IT IN Th£ FCLIST ELEMENT 

CLEAR.NSW AIT 

INITIATE SWITCHING 


INDICATE SWITCHING PREFERENCE 


AND RETURN 

CHANGE THE COMPLETION ADDRESS 

GET THE CONTROL BLOCK FGINTER 

LOAD.THE.ABNORMAL/UNAVAILABLE.BIT 

SET IT INTO THE STATUS 


SAY NO IRRECOVERABLE ERROR 


CLEAR THE USERS CORE POINTER 
GIVE UP THE FILE CORE BLOCK 


O 
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DISKCOP 


if if ifif if if if 


118 0 
1181 
1182 
118 3 
118 A 

1185 

1186 

1187 

1188 
1189 

1191 


* 

THIS ROUTINE IS- TO.RESERVE A BLOCK- CF.CORE WHICH WAS...* 

PREVIOUSLY FLOATED BUT HAS NOT BEEN REWRITTEN * 

ENTER WITH THE INTERRUPTS DISABLED AND THE CCREF WORD WHICH * 
POINTS TO THE BLOCK IN THE A REGISTER BY EXECUTING AN ~—* 

RTJ RESERVE RESERVE THE CORE ELOCK * 

- ----*... . . . . . .— if 

INDEX 2 IS SET EQUAL TO THE ADDRESS CF THE CCRE BLOCK * 




0 

01253 

01254 

01 00 00 00 

12077766 

1192 

1193 

1194 

RESERVE UJP 

SHA 

IMPURE 

-9 


QUARTER PAGE NUMBER TO RIGHT OF A 1 


.01255. 

G 1256 
.01257 

.17600. 777 . 

77640001 

1307776Q. 

1195 

1196 

..._14.g_7.. 

ANA 

APF 

.. SHA-Q-. 

7773 

PFLOC+PFW 

.-15. 


MASK OFF ANY GARBAGE 

LOAD THE PAGE FILE WORD 

..BUFFER ADDRESS.TO.{ Q).-. 

0 

U126 0 
01263 

53020036 

00701036 P 

1198 

1199 

LEVELC 

RTJ 

( ) 

CONVERT 


FCLIST ELEMENT ADDRESS TO X2 

0 ._ 

Ul^o4 

01265 

01266 

d U 0 U Qb be X 

3520 0 000 

40200000 

1200 

1201 
1202 

. 

3S A 

STA 

« . .. . • 

TOP 

FCS,X2 

FCS,X2 


TELL THE WORLD WE ARE USING THIS 

BLOCK AGAIN 


.G126 7. 

. 0TW1253.P. 

.. 1203. 

UJP 

.RESERVE 


RETURN 
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CD 


d 


0 


cr 


o. 


o 


o 


1206 

.120 7. 

1208 

1209 

1210 
1211 
1212 

1213 . 

1214 


DISKCOP 

. ^ 4 lyi' JgL" jgt # 

* Ar 

i-.THIS ROUTINE REWRITES THE BLOCK OF CORE WHOSE GORE POINTER.-. 

IS IN THE A REGISTER INTO THE FILE BLOCK WHOSE BLOCK NUMBER * 
IS IN THE O REGISTER. * 

.*.. ALL.INDEX REGISTERS ARE.SAVEO AND RESTORED B Y "-T HIS" ROUTINE.—’► 

TO CALL IT, DISABLE THE INTERRUPTS AND EXECUTE AN * 


¥ 

¥ 

~¥- 

¥ 

¥ 

* RTJ REWRITE. 

¥ ' ¥ 
¥¥ ¥¥ ¥ ¥¥¥ ¥¥ ¥¥ ¥ ¥ ¥¥■ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 


REWRITEANDRELEASE.THE SLOCK 


1216 

1217 




.a 


‘CD 


,3 


’3 


G . 

01270 

01271 

01272 

“• 41001357 “' 
13000030 
1460 0001 

T J — 

———L~ 2 irS'-- 

1219 

1220 

"R*WRTX~- Sm —.-' 

SHAQ 

ENA 

Tempi . 

24 

1 

...SAVE THE BLOCK" NUMBER*...... ...... 

CORE ADDRESS TO G 

COUNT UF THE NUMBER OF BLOCKS 


.,o 


0127 3 
01274 
. 01275 

34001353 
00701036 
.. 2 Q.flO-l. 2-64 . 

P 

P 

.X-....-. 

... '1221 . 

1222 

.... 122 3 .. 

’ RAD 

RTJ 

. 1 n.-A. 

RTRCOUNT 
CONVERT 

. T HP —..-.. 

BEING REWRITTEN 

GET THE FCLIST POINTER 

.. TCI 1 .Tl-c unci n. tu at T MTS.fll. arK... 



o.. 

01276 

01277 

35200000 

40200000 


i 22 4 

1225 

LU H 

SSA 

STA 

FCS,X 2 

FCS, X 2 

IS BEING REWRITTEN 

SAVE IT IN THE FCLIST ELEMENT 


o 

. .. . . . Ql 

O ... 

J JL 6 U U 

U 1301 
01302 

• 2 U UO 135 / 
40200003 
14101000 

"■p " ..' 

.... 122 b... 

1227 

1228 

..... .•"CD'A. 

STA 

£NI 

TEMPI 

FCS,X 2 
WPF 8 + 2 ,XI 


._ tO 


. 01303 - 

01304 

. 0130 5 

14277777 
14300545 
...n 0-70 0 0 01 

"X"' 

P 

_p_..... 

.*. 1229 .. 

1230 

....... 4 ..P. 3 .. 1 .... 

"'EMI ' 

ENI 

...CT J.. 

WRITE,X 2 

RIN,X 3 

FILE 

CALL RIN WHEN REWRITTEN 

TNTTTATF THF TK A KiF F r P 


......... ?„ 1 

O ~. 

01306 

01307 

n a m 2 a n 

14100000 

14200000 


1232 

1233 

RWRT 1 ENI 

RWRT 2 ENI 

IMPURE,XI 
IMPURE,X 2 

«L 11 i 1 X H 1 d» i n E* 1 n n w •» H, -P\. 

RESTORE INDEX 1 

RESTORE INDEX 2 


o 

o. 

0131 U 

U 1311 
01312 

jL 4 O 0 u U u u 

14 60 0 0 0 0 
40 10 0 002 


. 12 <54 . 

1235 

1236 

■RWRT 3 'ENI 

ENA 

STA 

1 MPURh • X ‘3 

0 

COREP, XI 

RESTORE INDEX 3 ' 

TELL THE CONTROL BLOCK THAT IT NO 

LONGER HAS THE FILE CORE BLOCK 


o 


. 01313 . 

01314 
.. 01315 . 

.OTOOffQQr 

0 3 0 Q 1313 

. 4 . 7 ...i.n.i.. 30-6 . 

P 

...p...... 

. 1237 .— 

1238 

....l-.P 3 .- 9 .-..... 

REWRITE 03 P 

AZJ,EQ 

..;__siT.. 

IMPURE 

REWRITE 

R WRT 1 . XI_ 

JUMP IF ALREADY REWRITTEN 

....cfl.u.F.T NOF X. 1 ..:.. 



o 

01316 

01317 

il A ~2 o, a 

47201307 

47301310 

, A T? T 7 AT 4 "5 n 

P 

P 

1240 

1.241 

ST I 

STI 

R WRT 2 ,X 2 

RWRT 3 , X 3 

SAVE INDEX 2 

SAVE INDEX 3 


o 

O .:... 

U 1 3 £ U 

01321 

01322 

U 6 -5 U X 'C. f O 

13 00 0 Q 3 Q 
_ 14 . 3 . 0 . 13 . 0 . 6 .. 

K 

P 

’ 1242 
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